home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 101 / Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso / pc / new_ugp.dxr / 00050_Bootcamp Menu Init.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  3.9 KB  |  76 lines
  1. on exitFrame
  2.   set newMenu to CreateMenu([#statusMessage: "Select a fighter to see a move."])
  3.   SetStatusMember(newMenu, [#statusMember: "bootcamp status"])
  4.   mmButton(newMenu, [#downMember: "ugpC_61"])
  5.   quitButton(newMenu, [#downMember: "ugpC_71"])
  6.   ShowVolumeControl()
  7.   set textListSprite to 1
  8.   set miniGameCtrl to 26
  9.   set bigGameCtrl to 45
  10.   set coverSprite to 46
  11.   set remoteCtrlSprites to [9, 10, 11, 12, 13, 14, 15]
  12.   set remoteParams to [#onSprite: 8, #offSprite: 15, #buttonSpriteList: remoteCtrlSprites]
  13.   NewVideoDisplay(newMenu, [#cleanup: 0])
  14.   CreateRemoteControl(newMenu, 10)
  15.   set showVidCtrl to SetRemote(newMenu, remoteParams)
  16.   append(remoteCtrlSprites, the spritenum of the videoDisplay of the currMenu of GetGlobal(#gTitleObject))
  17.   SetControllers(newMenu, bigGameCtrl, miniGameCtrl, coverSprite, remoteCtrlSprites)
  18.   set textList to NewObject(newMenu, "Text Display Class", [#spritenum: textListSprite, #windowBottom: 348])
  19.   NewTextSlider(newMenu, [#sliderSprite: 20, #sliderBottom: 237, #textDisplay: textList])
  20.   SetGameList(newMenu, textListSprite, miniGameCtrl, bigGameCtrl, showVidCtrl)
  21.   NewObject(newMenu, "Background Audio Class", [#audioMember: "ugpC-background"])
  22.   cursor(-1)
  23.   return newMenu
  24. end
  25.  
  26. on CreateRemoteControl newMenu, playSprite
  27.   set videoDisplay to the videoDisplay of the currMenu of GetGlobal(#gTitleObject)
  28.   set controlSprite to playSprite
  29.   repeat with control in [#play, #stop, #slow, #fwdframe, #backframe]
  30.     set button to BasicButton(newMenu, [#hotSprites: [controlSprite]])
  31.     AddDown(button, NewObject(newMenu, "Video Control Class", [#videoControl: control, #videoDisplay: videoDisplay]))
  32.     set controlSprite to controlSprite + 1
  33.   end repeat
  34. end
  35.  
  36. on SetGameList newMenu, textListSprite, miniSprite, bigSprite, showVidCtrl
  37.   global titleDatabase
  38.   set gameList to getrecords(titleDatabase, #all, "bootcamp")
  39.   if not listp(gameList) then
  40.     put "No games in that category"
  41.   else
  42.     set button to BasicButton(newMenu, [#hotSprites: [textListSprite], #statusMessage: "Select a fighter to see a move."])
  43.     set gameParams to [#gameList: gameList, #memberID: the memberNum of sprite textListSprite, #normalColor: 6, #hiliteColor: 5]
  44.     AddDown(button, NewObject(newMenu, "Game Manager Class", gameParams))
  45.     set gameParams to [#gameList: gameList, #miniSprite: miniSprite, #bigSprite: bigSprite]
  46.     AddDown(button, NewObject(newMenu, "GameCtrl Class", gameParams))
  47.     AddDown(button, showVidCtrl)
  48.   end if
  49. end
  50.  
  51. on NewTextSlider newMenu, paramList
  52.   set button to BasicButton(newMenu, [#hotSprites: [getProp(paramList, #sliderSprite)], #statusMessage: "Drag to Scroll"])
  53.   AddDown(button, NewObject(newMenu, "Text Slider Class", paramList))
  54. end
  55.  
  56. on SetRemote newMenu, paramList
  57.   set onSprite to getProp(paramList, #onSprite)
  58.   set offSprite to getProp(paramList, #offSprite)
  59.   set remoteSprites to getProp(paramList, #buttonSpriteList)
  60.   set button to BasicButton(newMenu, [#hotSprites: [onSprite]])
  61.   set onHilite to NewObject(newMenu, "Visibility Hilite Class", [#showSpriteList: remoteSprites, #hideSpriteList: [onSprite]])
  62.   AddDown(button, onHilite)
  63.   set button to BasicButton(newMenu, [#hotSprites: [offSprite]])
  64.   AddDown(button, NewObject(newMenu, "Visibility Hilite Class", [#showSpriteList: [onSprite], #hideSpriteList: remoteSprites]))
  65.   set the visible of sprite onSprite to 1
  66.   return onHilite
  67. end
  68.  
  69. on SetControllers newMenu, bigGameCtrl, miniGameCtrl, coverSprite, remoteCtrlSprites
  70.   set button to BasicButton(newMenu, [#hotSprites: [coverSprite]])
  71.   AddDown(button, NewObject(newMenu, "Visibility Hilite Class", [#hideSpriteList: [bigGameCtrl, coverSprite]]))
  72.   set button to BasicButton(newMenu, [#hotSprites: [miniGameCtrl]])
  73.   AddDown(button, NewObject(newMenu, "Video Sequence Class", [#memberNum: 0]))
  74.   AddDown(button, NewObject(newMenu, "Visibility Hilite Class", [#showSpriteList: [bigGameCtrl, coverSprite], #hideSpriteList: remoteCtrlSprites]))
  75. end
  76.